home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / Amigacall v3.51 prof.adf / SCRIPT / infoLogin < prev    next >
Text File  |  1989-12-16  |  2KB  |  85 lines
  1. ################## ANFANG DES SCRIPTS ####################
  2.  
  3. # Kontrollfenster aus
  4. clrcapt
  5. control 0
  6.  
  7. # Welche Mailbox??
  8. compa !lastline! !with! INFO1
  9. ifnequ goto weiter1
  10. # 1200 Baud-Zugang des AmigaCall-Infosystems, Nummer 37389
  11. seta parm,1200-8n1
  12. seta num,37389
  13. goto losgehts
  14.  
  15. :weiter1
  16. compa !lastline! !with! INFO2
  17. ifnequ goto weiter2
  18. # 300 Baud-Zugang des AmigaCall-Infosystems, Nummer 330039
  19. seta parm,300-8n1
  20. seta num,330039
  21. goto losgehts
  22.  
  23. :weiter2
  24. compa !lastline! !with! INFO3
  25. ifnequ goto weiter3
  26. # 300 Baud-Zugang des AmigaCall-Infosystems, Nummer 331040
  27. seta parm,300-8n1
  28. seta num,331040
  29. goto losgehts
  30.  
  31. :weiter3
  32. # Keine der 3 Eintrdge, bzw. direktstart vom Menue aus
  33. print ^LDieses Script dient zum Automatischen Einloggen ins 
  34. print AmigaCall-Infosystem  und  wird vom  Telefonbuch  aus
  35. print durch Wahl eines der Eintraege  INFO1,  INFO2,  INFO3
  36. print gestartet.
  37. print Das Script funktioniert nicht, wenn es aus dem Haupt-
  38. print menue heraus gestartet wurde.
  39. exit
  40.  
  41. :losgehts
  42. # Parameter setzen & Nummer wdhlen
  43. baud !parm!
  44.  
  45. # Modem vorhanden???
  46. list ^L
  47. ask Haben Sie ein Hayes-Modem? (J/N)
  48. compa !lastline! !with! j
  49. ifequ goto hayes
  50. compa !lastline! !with! J
  51. ifequ goto hayes
  52.  
  53. print Waehlen Sie bitte jetzt die Nummer 0911 !num!.
  54. print Wenn Sie  das Freizeichen hoeren, druecken Sie 
  55. print der Telefonhoerer in Ihren Koppler und druecken
  56. print Sie die RETURN-TASTE.
  57. ask @02,07;RETURN WENN FERTIG!!
  58.  
  59. goto doit
  60.  
  61. :hayes
  62. dial 0911 !num!
  63.  
  64. :doit
  65. # 50 Sek. auf die Aufforderung zum Login warten
  66. timeout 50
  67. wait Name?
  68. ifnbrk goto login
  69.  
  70. # Nix gewesen
  71. hangup
  72. print MSN meldet sich nicht!!
  73. yell 2
  74. exit
  75.  
  76. #einloggen
  77. :login
  78. send AmigaCall^M
  79. delay
  80. list ^L
  81. exit
  82.  
  83. ############### ENDE DES SCRIPTS ####################
  84.  
  85.